home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / olaptble / _setup.1 / ACOInit.vbs < prev    next >
Encoding:
Text File  |  1998-03-20  |  797 b   |  24 lines
  1. ' Demo Script ACOInit.Vbs
  2. '
  3. ' Alpha Centauri - March 1998
  4. ' ---------------------------
  5.  
  6. Call MsgBox("This script will populate the ACODemo database." + _
  7.             "  A dialog box indicating the end of the procedure" + _
  8.             " will be displayed.  Please be patient.", _
  9.             64, "ACOTable InitScript")
  10.  
  11. ' Connect to Personal Express and open the ACODemo Database
  12. Call ACOTable.Connect(False)
  13. Call ACOTable.Open("C:\PROGRA~1\ACOTABLE\ACODEMO", False)
  14.  
  15. ' Populate the ACODemo database
  16. Call ACOTable.FetchData("Call AC_Fill.Var ; Upd")
  17.  
  18. ' Detach the ACODemo database and disconnect from Personal Express
  19. Call ACOTable.Close("ACODemo")
  20. Call ACOTable.Disconnect()
  21.  
  22. Call MsgBox("ACODemo database succesfully populated.", _
  23.             64, "ACOTable InitScript")
  24.